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NEW BASIC CARTRIDGE 
BY 
FRED CORNETT 


We at The Cursor Group have received a 
deluge of letters regarding the rumors 
people have heard about AstroVisions 
planned release of a New Basic Cartridge. 
This column is dedicated to putting these 
rumors to rest. 


AstroVision IS planning to release a com- 
bined Bally Basic/Audio Cassette Inter- 


However, there are trade-offs: You will 
not be able to use "Auto-Run" features 
or any of the dirty tricks with the line 
Input Buffer. You are also unable to 
label programs or data files. 


3. The NEW Basic has an Edit feature 
that allows you .to step through a pro- 
gram line you wish to change by pressing 
two keys for each character. We did not 
find this very useful and suggested it 
be improved or dropped. 


4. Trace Mode: This feature excited 


us! The Trace is an 
face Cartridge in May POSSE ORR PERO Reese eee, 


1981. The only purpose 8 
of this cartridge is tog 
begin packaging the ao 
Bally Arcade with Basic @ 
and Interface complete, @ 
beginning in May. Thisg 
is being done so Astro- 8 
Vision can advertise 

the Bally Arcade as a 

complete working Micro- 
Computer for $299.95. 





We have received sever- 
al of the NEW Basic 


MATH OAS) 
Cartridges in Eprom for BTTTTTLLLLTLL ELLE LLL CL CLLL LL meri 


our review and comments 
prior to it's release, they are as fol- 
lows: 


1. The NEW Basic Cartridge eliminates 
the old Audio Cassette Interface which 
allows you to store your programs on 
tape. Instead, the NEW Basic has a fe- 
male mini-~plug connector built into the 
cartridge housing, you merely connect one 
wire to your cassette recorder and one 
wire to the cartridge. 


2. This Audio Interface operates at 18 
9% Baud. This means your programs will 
load 6 times faster than they do now. 


g extremely valuable de- 
PSSST... mbugging tool. Lets 
say you have completed 
ee SOME & a new program, but it 
IVCREASED wis getting hung up 
BAup? Bsomewhere and you 
B don't know where. 
MMerely Run the program 
@ and when you want to 
@ find out what program 
Biine the Computer is 
gle vig 4 executing-- 
B press the LIST key and 
@that line will print 
Very, very nice! 





5. Strings: As things now stand, we 
have one set of single dimensioned 
string arrays @(A), which load directly 
after your program in the text area. 
This causes a problem. If we wanted @(@ 
)=5611 and after that value was stored 
in @(%) we added a line or deleted a 
line in our program, the value in @(Q@) 
would be changed. This could have been 
eliminated by starting the strings at 
the bottom of memory. The NEW Basic 
does just that and also keeps the old 
strings, thereby providing two sets of 
single dimensioned arrays @(A) and *(A), 
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these two sets will overlap at a point 138 GOSUB 929; RETURN 























determined by text size. 148 GOSUB 91%; RETURN 
. 15% GOSUB 999; RETURN 
6. RS232 Printer and Keyboard Inter- 16% GOSUB 919; RETURN 
face is completely eliminated in the NEW 200 PRINT “INCHES (XX.X) T=", ;@ (26) =2; @( 
Basky er ee nena 25)=5; @(24)=4; @ (23) =P; RETURN 
7. Interrupt handling is also changed. 309 PRINT "YARDS (XXXX.X)T=",;@(43)=9;@ - 
: ; (42)=1; @ (41) =4; @ (49) =4; RETURN 
peat ae San ash cet 499 PRINT "MILES (XXXK.X) =", 7 @(62)=1;@ 
P (61) =6; @ (6) =B; @ (59) =9; RETURN 


to sell Bally Aré¢ade Units. Dan Dawson, 
Pres. of AstroVision, has NO intention 
in making the old Bally Basic obsolete. 


50M CX=-59;PRINT "GALLONS (XXX.X)c=",;@ 
(88) =3; @(79) =7; @(78) =8; @(77) =5; RETU 














RN 
There is an existing treasure trove of — 
software cccmaette? wate Basic and 699 PRINT.  FOUNCES (XX-X) T=" FE (99) =2zE 
AstroVision wants new people as well as (98) =8 28 (917) +87 G96) 257 RESO 
old to be able to access this vast li- oe ee (XXX) C=", 76 (115) =47 
praty Sf sortiake: @(114)=5; @(113) =3; @(112)=6; RETURN 
99% FOR A=9TO 7STEP -1;IF A=7PRINT ".", 
This cartridge is not in final form, we ;GOTO 959 
will discuss the final product when we 985 GOTO 959 
receive it. 91% FOR A=1$TO 7STEP -1;IF A=7PRINT "." 
ove one one eve one eve oe ons eve oe ene oe oe oe ere one oe ene ; GOTO 9 5 
METRIC CONVERTER 915 GOTO 959 


92% FOR A=11TO 7STEP -1;IF A=7PRINT ". 


BY 
BILL TEMPLETON 





95% @(A)=KP;TV=@(A) ;NEXT A; RETURN 
1928 $x@(B) ,@(18) ,@(162) ; RETURN 


















































This program converts American measure- 1f18 $x@(G) ,@(36) ,@(162) ; RETURN 
ments to metric. Press GO after input- 192 $x@(G) ,@(54) ,@(162) ; RETURN 
ting your menu selection. It will not be 1938 $x@(G) ,@(72) ,@ (162) ; RETURN 
necessary to hit GO after inputting the 1948 $x@() ,@(9G) ,@(162) ; RETURN 
amounts! Please precede all amounts with 1050 $x@() ,@(1G8) ,@ (162) ; RETURN 
zeroes to completely fill the field. 11Q% Cx=-47;CY=$;GOSUB 1199+M;GOTO 1119 
1191 PRINT "CCCMC=C",;RETURN 
EDITORS NOTE: We made a few changes to i Ce eee: 
1182 PRINT "METERSC=C",; RETURN 
hanks to Bikl for sending us thts one! Snes 
4 F C. 1185 PRINT "CGRAMSC=C", ; RETURN 
1 .ENGLISH TO METRIC a 1196 PRINT "GOKGO=E " , ; RETURN 
: —— 111% FOR B=174TO 169STEP -1;IF B=169PRI 
1 NT=%;BC=248;FC=135;CLEAR ;CY=9;PRIN nT ".". ark wi sori 
T "CSOCCCINITIALIZING... — 
= 1128 TV=@(B) ;NEXT B;CY=-32 
26 FOR Z=$TO 179;@(Z)=9;NEXT Z;CLEAR ; 113% CX=-77;PRINT "CCCGO AGAIN?ZCCPRESS 
FOR Z=3fTO S8$STEP 1$;CxX=-59;GOSUB Z a 
4 LE oA a ae 1149 BOX $,-32,13,19,3 
p See eee eee 115% IF &(23)=1GOTO 1 
4g PRINT "2=YARDS TO METERS";RETURN 116% GOTO 1140. 
re ee ee 129% CLEAR ;PRINT "SCCCUSE LEADING ZERO 
@ PRINT "4=GALLONS TO LITERS"; RETURN ES", PRINT ; RETURN 
7% PRINT "5=OUNCES TO GRAMS"; RETURN SOC! SREY 
88 PRINT "6=POUNDS TO KG";RETURN DSSGSSO*SSSleSVSee 








10@ PRINT ;PRINT ; INPUT "CCCCHOICE OF A 
BOVE?="M;IF (M<7)+(M>g)=2GOSUB 1299 
> CX=-59;GOSUB 189+100xM; V=998+19xM; 











PROOF READING? 











GOSUB 19@+1@xM;GOSUB V;GOTO 1199 Somehow a semi-colon (;) was printed in 
185 GOTO 129 our Jan/Feb 81 issue as a colon (:). 
11% GOSUB 99%; RETURN George Moses told us that little Gremlins 








12% GOSUB 929; RETURN | exist that travel by the darkness of 
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night with the exclusive purpose of 
plaguing self rightous publishers who 
claim not to print "glitches". We be- 
lieve him. 
Please make the following correction: 
page 83 BIORHYTHM COMPATIBILITY ANALYSIS- 

2@ PRINT "CCCOMPATIBILITY ANALYSIS"; CX= 

-41;PRINT "FOR 2 PEOPLE"; PRINT 

While we are at it, Alex Morales has 
found a way to improve the accuracy of 
this program to within 1 percent. Please 
make the following changes: 
Delete lines 32% & 338. Replace 319, 349 
thru 368 with the following: 

318 T=32;U=48;V=3 

348 @(19)=ABS (199- ( ( (2xG) x4) + ( ( (2xG) xT) 








+199) )) 

358 @(2f)=ABS (189- ( ( (2xH) x3) + ( ( (2H) xU) 
+169) )) 

368 @(21)=ABS (1GG- ( ( (2xJT) x3) + ( ( (2xJ) xV) 
+189) )) 
DIRTY PROGRAMMING TRICKS 


BY 


FRED CORNETT 
I can't tell you how much enjoyment I 
have had in the two years I have owned my 
Bally. Most of my delight has been gen- 
erated by finding ways of circumventing 
the limitations of this system. 


In the days of the Knights of the Round 
Table, Knights were trained for combat 
with a 40 lb. broadsword. They would 
spend months on end swinging that forty- 
pounder against a log; when they finally 
went into battle, they were given a 5 lb. 
sword. The object being--they had built 
up so much muscle using the 40 lb. sword, 
they could, swing the five pounder all day 
without tiring. 

and so it is with a Bally programmer..... 


When you key-in the programs printed on 
our pages, you must key them in exactly 
as you see them. We have used many dif- 
ferent tricks to save bytes that I will 
attempt to explain. 





1. PRINT STATEMENTS 
The final quote (") in a print state- 
ment is. not needed if the print state- 
ment is the last (or only) statement 
on a line. 
The following statements are correct: 


19 PRINT "HELLO 

2 PRINT "GOODBYE"; A=25 

30 C=26;PRINT "COME HERE";D=6;PRINT "N 
Ow 











2. IF STATEMENTS 

When we know that the status of a var- 

iable is normally zero and we want the 

computer to print "ZAP" whenever the 

variable value is below or above zero 

we would’ normally do it thusly: 

1 IF A>#PRINT "ZAP 

2 IF A<MPRINT "ZAP 

Or 

19 IF A#=QPRINT "ZAP 

A much easier way would be: 

12g LP APRINT "ZAP 
This last statement is saying "If the 
value of A is anything but zero Print "ZA 
Pp". The Bally logic does not accept zero 
as a value, so lets rephrase what line 19 
is doing: If A is any value Print "ZAP". 


We can take this notation system (Boolean 
Algebra) a step further and make up some 


pretty sharp statements, key in the fol- 
lowing without a line number and hit GO: 

PRINT 4x6=1@ (no quotes please) 
Computer will print "@". Key in: 

PRINT 4x6=24 
Computer will print "1". OK! The first 
time we did 4x6=1@8 the computer said "Q", 
which stands for False-the second time, 
we put in 4x6=24 computer said "1" True. 
AHA, what we have here is a lie detector. 
Lets say we wanted the computer to print 
“ZAp™ IP A@6 or IF B=7 or IF C=O or IF D= 
2, But we only want the computer to do it 
once we would normally do it thusly: 

1@ IF: A=6PRINT. "ZAP";GOTO 5@ 

29 IF B=7PRINT "ZAP";GOTO 5g 

39 IF C=9PRINT "ZAP";GOTO 59 

4f IF D=2PRINT "ZAP 


58 STOP 
or use the info we have just learned and 


try this: 
1g IF (A=6)+(B=7)+(C=9)+(D=2)PRINT "ZA 
P CON’T LAST PAGE 


MORSE CODE SIMULATOR 
BY 


ALEX MORALES 

STAFF MEMBER 
Akex is 33 years okd and joined our stags 
part-time in Feb. 81. After an honorable 
discharge srom the U.S. Arumy, Alex worked 
ab a journeyman printer fOr SAX years un- 
tlk returning to coklege under the G.1. - 
Beek. He majored in Computer Science and 
works full time for Pacific Telephone. 


This is a very functional education pro- 
gram that has all the features that our 
memory size limitations would allow. 
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When Run, a menu will appear on your 
screen asking you to select from: 


1- MORSE TRAINER 

2- TEXT TO MORSE 

3- SAVE TEXT ON TAPE 
4- MORSE ALPHABET 


Try pressing 2. Computer will then print 
"ENTER TEXT (25 CHAR. MAX)". You then 
key in a phrase such as "I AM A BALLY", 
use spaces to separate words if phrase 
less than 25 chars., press GO when phrase. 
is complete. Computer will leave phrase 
showing at top of screen with morse equiv- 
alant underneath, ( slash separates 
letters, 3 slashes separate words, bal- 
ance of unused character will be slashes). 


To use #1 (MORSE TRAINER) you must first 
use #3 (SAVE TEXT ON TAPE) which will 
store phrases on tape. This allows a 
father to store ten phrases (more or less) 
on tape without his son seeing them. 

Then, son would use #1 to retrieve phrases 
from tape without being able to see the 
actual text. 


After using any of the four selections, 
computer will wait for a key to be pressed 
before returning you to menu. #4 (MORSE 
ALPHABET) Merely prints out an alphabet 
chart with morse equivalant for study 
purposes. 


This program will only accept letters and 
spaces-no numbers, special characters or. 
punctuation. 


NOTE: We gave Alex the idea for this pro- 
gram on a friday mornéng-he gave us the 
completed program on saturday afternoon. 


1 .MORSE CODE 
2 .BY ALEX MORALES 
5 @(26)=12;@(27)=2111; @(28)=2121; @ (29 
)=211;@(39)=1 
@(31)=1121; @(32)=221; @(33)=1111; @ (3 
4)=11; @(35)=1222 
@ (36) =212; @ (37) =1211; @ (38) =22;@ (39) 
=21;@ (49) =222 
8 @(41)=1221; @ (42) =2212; @(43)=121;@4(4 
4)=111;@ (45) =2 
9 @(46)=112;@ (47) =1112; @ (48) =122;@ (49. 
)=2112;@ (59) =2122;@(51)=2211 
1% CLEAR ;BC=8;FC=7;NT=@;W=189;A=@; GOS 
UB 8%;GOTO 119 
15 CLEAR 
16 PRINT “INPUT TEXT (25 CHAR. MAX)";P 
RINT > 
17 NT=3 
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OV 


~ 














PRINT "",;FOR I=1+ATO 25+A 











2p 

25 BOX CX,CY,6,8,1;@(I)=KP;TV=@ (I) 

30 IF @(I)=31I=I-1;GOTO 25 

31 IF @(I)=13@(I)=32;GOTO 45 

49 NEXT I 

45 RETURN 

50 IF @(I)=32RETURN 

52 C=@(I)-39 

54 @(52)=@(C) 

55 Q=@(C) #1900; IF O>GIF Q<3@(C)=@(C)-( 


69 


65 


145 
15g 


16g 
179 
1P69 
1919 


1828 
1936 
1949 
1052 
1862 
1276 
1989 
1999 


1162 


1004xQ) ;GOSUB W+Q 

Q=@(C) +199; IF Q>PIF O<3@(C)=@(C)-(1 
BBxQ) ;GOSUB W+Q 
Q=@(C)#1P;IF Q>PIF Q<3@(C)=@(C)- (19 
xQ) ;GOSUB W+Q 

GOSUB W+RM 

@(C)=@ (52) 

RETURN 

FOR I=1TO 25; @(I)=32; @(I+52)=32;NEX 
T I;RETURN 

CLEAR 

PRINT "tO", 

FOR I=1TO 25;GOSUB 59 



































IF @(I)=32PRINT "/", 

PRINT "/",;1F CX>=44PRINT ;PRINT "% 
ce 

NEXT I; RETURN 

NT=3 ;MU=69;NT=$;PRINT ".",;RETURN 
NT=15;MU=69;NT=@;PRINT "-",;RETURN 








PRINT "GCCMORSE CODE SIMULATOR 
CX=-65;CY=24;PRINT "10-CMORSE TRAIN 
ER" ;PRINT 

PRINT "€C2C-CTEXT TO MORSE"; PRINT 
PRINT "CC30-CSAVE TEXT ON TAPE";PRI 











PRINT "CC4T-CMORSE ALPHABET"; PRINT 
CX=-41;PRINT “INPUT CHOICE*C", ;K=KP 
;IF K>48IF K<53TV=K; GOTO 17 


GOTO 15¢ 

CLEAR ;GOTO 19x (K-48) 
CLEAR ;BC=96 

PRINT "CSTART TAPE TO READ TEXT"; :IN 
PUT 

K=KP; IF K=35GOTO 1949 
GOTO 1926 © 

FOR I=1TO 25;@(I)=KP;NEXT I;NT=3; :RE 
TURN Y3E 
PRINT "CCSTOP TAPE NOW";FOR I=1TO 59 
O;NEXT I 

GOSUB 85 

CY=6; CX=-77;A=52;GOSUB 16 

FOR I=53TO 77;1F @(1)=@(I-52)NExT I; 
GOTO 112¢ . 
PRINT ;PRINT "CSWRONGC-CCORRECT TEXTS 
Sz 

FOR I=1TO 25;TV=@(I) ;NEXT I;GOTO 113 



































a 


























1128 PRINT "TCORRECT!", 

1130 K=KP;GOTO 19 

2028 GOSUB 15 

2818 PRINT ;GOSUB 86;GOTO 1139 

3008 BC=141;FC=9;GOSUB 15 

3018 PRINT "START RECORDER & PRESS GO",;K 
=KP 

362% NT=7;CLEAR ;:PRINT ;TV=35;FOR I=1TO 
25;TV=@(1I);NEXT I; : RETURN 

3838 PRINT "CSTOP RECORDER NOW 

348 GOTO 1139 

499% FOR A=26TO 5$STEP 3;CX=-71; TV=A+39;T 
V=61;C=A;GOSUB 54;CX=-23; TV=At+4@; TV= 
61; C=A+1 

4918 GOSUB 54;IF A+2<52CX=31; TV=A+41; TV=6 
1;C=A+2;GOSUB 54;PRINT ;NEXT A 

4928 GOTO 1139 

NONCNSNSNSNSNSNSNSSN@NSN@NS1e1@1elerelererererereren 


MANUALS+MANUALS+MANUALS 


1. Bally On-Board ROM Sub-Routines. Explains the use of the on- 
board routines which allow you to perform such things as you 
find in the “Machine Language Programs" in Cursor. Includes 
ASCII Standard & Nonstandard Character Sets, Cassette Memory 
Structure; Output Ports; Input Ports; Bally Data Base Locat- 
ions; Bally Memory Locations; and On-Board ROM 8K Hex Dump. 
$4.49 


2. Hackers Manual. Describes features provided in the Tiny 
Basic but not documented in the Bally Instruction Booklet. 
(Additional Commands). $3.99 

3. Disassembled Tiny Basic (CDOS Z80 Assembler Version 02.15) 
A complete assembly language listing including OP Code and 
comments of the Tiny Basic Cartridge. $8.49 


4. Disassembled Brickyard & Clowns. A complete assembly lang- 
uage listing including OP Code and comments. $9.99 


5. Disassembled DEMO Cassette. A complete assembly language 
listing including OP Code and comments. $8.49 


6. Bally System Description Book. Extensive and includes 
"Electrical Specifications for Midway Custom Circuits", Timing 
Interrupt handling explanations, etc. $8.99 





























7. Disassembled System Software. A complete assembly language 
listing including OP Code and comments to include: Home Video 
Game Equates; Port Equates; System Call Indexes; Macros; Music 
Macros; Music Equates; System RAM Memory Cells; User Supplied 
Routines; Masks; UPI Routines Address Tables; Sentry; BCD 
Divide; BCD Subtract & Add; Decrement Counters & Timers; Music 
CPU; Vectoring Routines; Paint Rectangle Routines; Write Rou- 
tines; Character Display Routines; Display BCD; Menu Routines 
and much, much more. $13.49 


8. Disassembled On-Board Games. A complete assembly language 
listing including OP Code and comments to include: Scribbling, 
Calculator, Checkmate, Gun Fight. $15.99 


9. Bally Service Manual. Schematics, Parts Lists, instructions 
for removing RF Shields, and much more. No one should be with- 
out iti! $3.50 


10. PEEK n' POKE: The only manual written that is truly 
beginner level. Opens up the power of: machine language; 
tells how to get floating point decimal out of this 
machine along with programs. $8.25 


Ne we MANUALS ny FIRST CLASS — 













HAMURABI 
BY 
BRUCE DE VRIES 


Her 
you 





e are the rules ror uaturaDe After 
answer each question press 'GO' 


1. At the start a person needs 10 
bushels of grain per year to live. 
Farm worker strikes can change 
this. They may accept up to 2 less 
bushels than they demand. If your 
offer is rejected there will be no 
harvest. Strike amount equals 10 
plus your settlement. 


2. 55% of the people must be fed or 
your term of office may expire. 


3. You may buy or sell land at prices 
from 17 to 26 bushels per acre. 


4, It takes 3 bushels to plant an 


NOT 


1p 
20 


36 
49 


acre and 1 worker to plant 10 
acres. 


5. Term of office is twenty years. 
If you can make it. 


E: It would help to have a catcukator 
eLose at hand 4§ you want to win! 


CLEAR 
:RETURN ; P=5%;G=209@; L=599;D=18;S=9;M 
=$;K=0;X=@;PRINT "WHAT IS YOUR NAME?Z 





V=KP; TV=V; IF V=31X=X-1;GOTO 39 
IF V#13X=X+1;@(X)=V;GOTO 39 


5@ FOR Y=1TO 29;GOSUB 369;PRINT "CI BEGS 


69 
79 





TO TO REPORT TO YOU. ON YEAR",7C#3,Y 
N=RND (Syp+2¥ R=RND (4)+4xG?N;IF R>QG=G 
-R;PRINT "RATS ATEC",#1,R,"Cbushels" 
N=RND (4)+1;T=RND (6)76xG?N;IF T>$G=G 
-T; '; PRINT "THIEVES STOLEt",#1,T,"CBUSH 
ELS 





89 IF RND (13)+13=lW=1 
99 IF W=1E=RND (6);PRINT "A STRIKE HAS B 





EEN CALLED BY LOCAL 462 OF THE UNIONZ 
THEY DEMAND",#2,E,"CMORE BUSHELS 


169 IF W=1INPUT "WHAT IS YOUR OFFER?"@; LF. 


TE- Q<RND (3 (3) D=D+9;PRINT "FEED YOUR PE 
OPLET",#1,D,"CBUSHELS PER YEAR"; W=@ 








119 N=RND (39); IF N<3PRINT "A PLAGUE HASZ 


HIT THE CITY.CCCHALF THE PEOPLE DIED" 
:P=P+2 


128 I=P+5+RND (3%);P=P+1I;PRINT "NEW PEOPE 


132 


149 





",#4,1;PRINT "PEOPLE STARVED" ,#4,S;PR 
INT "POPULATION OF THE CITYC",#1,P 
PRINT "ACRES OF LAND",#6,L;H=RND (6); 
IF H=1PRINT "A DROUGHT HAS HIT THE LA 
ND 

IF W=1PRINT "THE UNION PICKETS AND TH 
E GRAIN ROTS";GOTO 169 
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159 IF M#QPRINT #4,M,"CACRES PLANTED"; PRI 
NT #4,H,"CBUSHELS PER ACRE" ;V=MxH; PRI 





NT #4,V,"CHARVEST FOR THIS YEAR";G=G+ 
V 

168 PRINT "BUSHELS ‘OF GRAIN",#6,G;A=RND ( 
18)+16 © 

176 PRINT "BUY # ACRES @",#4,A,;INPUT "TB 

| USHELS PER ACRE?"B;IF BxA>GGOSUB 359; 
GOTO 172 

188 U=$;IF B=SIF L#@INPUT "SELL # ACRES?" 
UyIF ~U>LGOSUB 349; GOTO 189 

198 G=G- G-AxB+AxU ; L=L+B- = ee 

20% INPUT "BUSHELS TO FEED CITY?"C;IF C>G 
GOSUB 358;GOTO 282 

218 G=G-C;F=C+D;IF F>P F=P 

226 IF F>P+2+P+2GGOTO 279 

238 GOSUB 36%;PRINT "CYOU HAVE BEEN ACCUS 
ED OF STARVING YOUR PEOPLE";PRINT "AT 
JURY WILL DECIDE YOUR FATE 

248 IF RND (4)=1PRINT "THE JURY HAS FOUND 
YOU NOT GUILTY BY REASON OF INSANITY. 
CBE MORE CAREFULLZ!!";GOTO 272 

258 PRINT "YOU HAVE BEEN FOUND GUILTYANDZ 
ARE SENTENCED TO LIFE ON A LONELY ROC 
K IN THETCCSUMERIAN SEA. 

268 GOTO 32¢ 

278 S=P-F;K=K+S; P=F;M=¢ 

288 IF L#@INPUT "# ACRES TO PLANT?"M;IF M 
x3>GGOSUB 358;GOTO 289 

298 IF M>Px1QGOSUB 339;PRINT #1,P,"CWORKE 
RS";GOTO 289 

306 IF M>LGOSUB 34%;GOTO 289 

318 G=G-Mx3;NEXT Y;GOSUB 36%;PRINT "CYOUC 
COMPLETED YOUR TERM, BUT STARVEDC",#1 

K,"CPeople 

328 A=KP;GOTO 19 

338 PRINT "SORRY YOU ONLY HAVEC", ; RETURN 

348 GOSUB 338;PRINT #1,L,"CACRES";RETURN 







































































358 GOSUB 338;PRINT #1,G,"CCBUSHELS" ; RETU 


RN 


36M PRINT "KINGC",;FOR N=1TO X;TV=@(N) ;NE 





XT N; RETURN 








TREASURE ISLAND 


/ : BY 
AN J. DREACHER 


D 


This is a game for two players that uses 
the keypad for input. The computer hides 
a treasure behind a secret box in a 
matrix of sixty boxes. Behind the other 
boxes can be found clues, cute little 
symbols, or nothing at all. The object 
of the game is to find the treasure 
First, 
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On the screen will appear two pirate 


ships, one representing each player. As 
you can see, they are docked at Treasure 
Island. Player one decides which box to 
check behind. Always counting from left 
to right and top to bottom, you enter 
the number of boxes you want to move 
horizontally (H) and vertically (V). A 
member of your crew will hop out of your 
ship and quickly execute movement for 
those values and reach the desired box. 
Here he will dig for treasure and find 
one of the following things; 
1. The Treasure---- } 
2. Clues----------- Arrows that point 
in the direction of the treasure. 
It simply means that the treasure 
cannot be in the rows behind the 
arrow. It can be in the same row. 
The arrow will be covered up and 
should be remembered. 
3. Quicksand------- (*) lose one turn 
4, Pirates Latreen--(@) No effect on 
playing game 
5. Pirate Attack--- The selecting 
players ship will be shot at by the 
other pirate ship. No effect on 
playing of game. 
6. Blank----------- Nothing there at 


This game includes interesting graphics 
and sound. It's also fun to play! 


2 .565313565389580605434298 

19 BC=221;FC=162; P=1;S=1;Z=19; R=@; CLEAR 

26 BOX 69,38,18,2,1;BOX -69,39,18,2,1;B0 
X -65,31,4,1,1;BOX 65,31,4,1,1 igs 

36 BOX 60; 29;,8,;2,h; ; BOX -69,29,8,2,1 

4g BOX iy Deuce akan 7 BOX Ae te a Ry pt 

58 BOX 59,34,1,8 ,1;BOX - +~59,34,1,8,2 

55 LINE 55,509,4:LINE 51,3251 

56 LINE -55,38,4;LINE -51,32,1 

57 BOX 59,34,6,3,1;BOX -59,34,6,3,1 

68 CX=-49;CY=-39;PRINT "TREASURETCISLAND 

65 L=65;N=25 

66 LINE L,N,4 

7D FOR FOR A=1TO 12;LINE L+RND (6)-6,N,1;N=N 
551 NEXT > By 

8B aEey L=65L=-65;N=25; GOTO 66 

82 L=65; N=28 


‘ 





























83 
85 


87 
26 


LINE L,N,4 

FOR A=LTO 14; LINE L, N+RND (4) -4,1;L=L 
-10;NEXT A. 

If N=28N=- 28;L=65;GOTO 83 

FOR A=-24569TO -24545;NT=12;MU=% (A) ;N 
ext A;NT=3 i 











199 
116 
13g 
14g 
169 
162 
164 


165 
179 
18g 
199 
200 
216 
226 


236 


248 


258 
2628 
27 
275 


288 
662 
695 
696 
619 
628 
636 
649 
645 
656 
668 
665 
676 


1PB9 
1693 
1064 
1665 
1666 
1607 
1614 
1615 
116 
1626 
1627 
1639 


1969 
1965 











X=-55;Y=28;FOR A=1TO 69 
BOX =X; ¥,7 4 79 1;@(A)=RND° (19) 
X=X+1@;IF X=605X=-55;Y=Y-19 


NEXT A;F=RND (6Q) ;@(F)=36 





FOR M=1TO 599;NEXT M 

IF Z=1QGOTO 165 

BOX X,Y,7,7,1;1F X<55BOX X+1Q,Y,7, 
Fuck 





GOSUB 1992 

A= (V-1) x12+H;K=F+12 

CX=X;CY=Y 

IF @(A)=3QPRINT "$";GOTO 3999 





IF @(A)=1IF V<KPRINT "4";GOTO 169 
IF @(A)=2IF V>KPRINT "t";GOTO 169 








IF @(A)=3IF H>F-(12xK)PRINT "<";GO 
TO 169 
IF @(A)=4IF H<F-(12xK) PRINT "+";GO 
TO 169 


IF @(A)=5PRINT "*";CY=-39;PRINT "Q 
UICKSAND-LOSE ONE TURN"; R=19;GOTO 
165 

IF @(A)=6GOTO 669 

IF @(A)=7IF V<KPRINT "¥";GOTO 169 
IF @(A)=8IF V>KPRINT "+";GOTO 169 
IF @(A)=9PRINT "@Q@";CY=-39;PRINT "Z 
PIRATES LOST LATRINE";GOTO 165 

BOX X,Y,7,7,2;GOTO 165 
H=32;CY=-39;CX=-49;PRINT "PIRATE A 
TTACK 

IF P=1E=-59 

& (21)=239;IF P=2E=59 

FOR A=1TO 59 

IF A<4H=H+1 

IF A>58H=H-1 

IF P=lE=E+2 

& (19) =A+2G 

IF P=2E=E-2 

BOX E,H,2,2,1;BOX B,H,2}2,2 

NEXT A;&(21)=@ 

BOX E,H-RND (3),1+RND (6),1+RND (6 
),2;MU="1";GOTO 169 

IF P=2GOTO 1996 

CX=-49;CY=35;INPUT H 

CX=-49; CY=35; INPUT V 

IF P=1GOTO 1914 

CX=29;CY=35;INPUT H 

CX=29;CY=35; INPUT V 

BOX By =-29; 169, 19, 2 

IF H>12H=12 

IF v>5V=5 

BOX %,35,108,10,2;E=-69 




















IF P=2E=6f 
FOR M=1TO 59; Z=9;BOX E,39,2,3,3;NEXT 


M; Y=3@ 
X=-65;IF P=2X=65 


FOR M=1TO V;BOX X,Y,2,3,3;MU="3";Y=Y 


-~19;BOX. X,¥,2,3,3;NEXT M 


1195 G=19;IF P=2G=-19 
1119 IF P=1FOR M=1TO H j 

1115 IF P=2FOR M=1TO 1346 \ 

112% BOX X,Y,2,3,3;X=X+G BOX X,Y,2,3,3 
114% Mu="1" 

115% NEXT M 

116@ FOR M=1TO 5f;BOX X,Y,2,3,3;NEXT M 
119% IF R=1$R=; RETURN 

1195 IF P=1P=2; RETURN 

129% P=1; RETURN 

3000 PRINT "TTCYOU WIN 


SCSSCS PSS OOO SCOCSCEHS 
OES Back ISSUES AVAIL LSS 


We have had numerous requests for info regarding BACK ISSUES! 

The following are available: 

l. Jan. 80 Contains: Electric Bill Analysis; Plastic Puzzle, 
Instructions for adding a Full-sized ASCII Keyboard; Life 
Systhesis Model. 

2. Feb. 80 Contains: PEEK n' POKE: Hex to Decimal Converter; 
String Array @(A) Memory Locator; Instructions on how to 
add a Printer; Bubble Sort; Camel; Memory Map; WUMPUS. 

3. Mar. 80 Contains: Three Voice Music Assembler; Star Wars 
Music; Chopsticks; Chicago Loop; Lace Curtain; Character 
Set Size Multiplier; Rotation; National Distributor Info. 

4. Apr/May 80 Contains: DMA Graphics (eliminates BOX & LINE 
commands, allows very complex graphics!); Reference Books, 
Product Review (Computer Ear-Speech Recognition Unit for 
Bally); Music Contest; RING; Alarm Clock; Byte Saving Hints. 

5. June 80 Contains: Direct Color Video/Audio Circuit (for 
Color Monitor or VCR etc.); Galactibattle (Game); PRINT & 
STRING Tutorial; OTHELLO: ASCII Conversion Chart; Cursor 
Control Chart. 

6. July 80 Contains: CURSOR Keyboard & 48K Memory Add-On 
info; ARCADE GOLF; Shell-Metzner Sort; Wavemakers "“Maze- 
maker;:; Floating Point Math; User Group Meetings. 


VOL. 2, Issue 1 (August) Contains: Cursor Inventory Control 
(Business Software); "Connect Four" (a professional quality 
game); software for the Computer Ear (Anderson Research) - 
'Fun With Music’. 

VOL. 2, Issue 2 (Sept.) Contains: ASTROVISION ACQUIRES BALLY - 
an Editoral; Spider Web (Graphics Program); Reverse (Game) ; 
Design ( a Graphics Program); Match Quiz (an Education Program) ; 
Note Match (an Education Program). 

VOL. 2, Issue 3 (October) Contains: Peek n‘ Poke Tutorial; 
Critter - a Machine Language Program that creates a non-blink- 
ing FAST moving character; Poor Mans Memory Expansion (a 
tutorial); Sideswipe (car driving game); We Three Kings of 
Orient Are (3 Voice Chord Music); Machine Language Graphics 


Tutorial. 
VOL. 2, Issue 4 (Nov/Dec) Contains: "ZGRASS32" Add-under info; 


New game cartridges; Programming Contest; Complete Bally, 
Game Cartridge description; Chess program; Software reviews. 
Vol. 2, Issue 5 (Jan/Feb) Contains: Winter CES News; Bio- 
Rythyms Compatability Analysis program; Towers of Hanoi game; 
Executive Time Card Calculator program; How to display all 
256 colors on screen at same time; 1's & 5's game program; 


Line Resequence program 

Ge sx0 $1.75 per back issue desired OR $9.75 for Volumn I and 
$9.75 for Volumn II to: CURSOR, P.O. Box 266, N. Hollywood, 
CA 91603 


MAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 





Still the BEST buy in town!! CURSOR C-20 
Digital Blank Tape by the case. Although 
we nave had to raise the price (our cost 
went up) you can't buy a better quality 
C-20 tape any any price. Just send us 
$15.99 (check or money order for fast- 

er service) and we'll rush you 10 great 
tapes to help you program at your very 


best. 
CURSOR VOL.II PAGE. 97 











sere 66 CONT INUED FROM PAGE 93 Shel os Sie ee, WAVEMAKERS BOX 94801 SCHAUMBURG, ILL. 60193 


Same result. We are telling the computer ~__ VVRVEAAAPKERS TAPE A 
to print "ZAP" IF;any or all of the 


i nal : = 
statements contained within parenthesis @GDItaLr Course 
ee eee eRe cme eel 


are correct. We can limit this statement 


even futher-lets say we wanted to print GUITAR TUNING Would you like to become the next EADCEE 
: 321 Peter Frampton, or the Beatles? 
"ZAP" if three out of the four statements Mpyi co_mguld fy 1 love panes. HORO «oc 
lesa ees es es ae se Maybe you'd settle for playing nice a 
were correct: SS=S=S=SSS= guitar for your own enjoyment and | 
=a one | leave the hit records to Pink USE _KNG2 1 
1g IF (A=6) + (B=7) +(C=9) + (D=2)=3PRINT " | Floyd. But why spend $10.00 on TO SELECT 
a —— 456 a lesson for the next six months CHRO. PUSH 
ZAP TUNE 1 TO THIS NOTE when for only $12.95-+ 50¢ postage pag ee 
We could have said 9,1,2,3, or 4. Zero Li Ey pect cael golly 654321 


would be saying IF none of these are true “CLULCLLUL COOL ECOCLULLLLLL 


print.."ZAP™. 


3. SPACING Cup A og) 
Many bytes may be saved by eliminating ESOTERICA LTD. » 


unnecessary space in program lines. Daas hat ge ea 
The rule is simple, there are 3 types ene On Adages re, NW 
of Text: 
If you like "Treasure Island", page 96, 
1. Command words (IF, PRINT, LIST,etc) CURSOR recommends you send $9.50 for 
2. Letters (A,B,C etc) Dan's two new programs -- 'Star Trek' 
i. oe | are aoe types to Gn8t SEE aaa Sane Se ane e 
oethat ote & ohaee lent!! “Star. Trek" :* You are sitting. at 
2 the command console looking out the main 
ACCEPTABLE view screen. A read-out at the bottom of 
1f IF A=26C=3 the screen keeps you informed of your 
28 IF A=26PRINT "HELLO warp factor, direction, etc. Challenging! 
36 IF A=BGOTO 199 "Golf" has six holes and a capacity for 
NOT ACCEPTABLE one to four players. 


1% A=BC=3 
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